home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)z7.d64 / proc.memorymap < prev    next >
Text File  |  2009-01-03  |  2KB  |  83 lines
  1. 0010 // DELETE "0:DRAW'MEMORYMAP.L"
  2. 0020 // BY ╒NI├OMAL
  3. 0030 // LIST "0:DRAW'MEMORYMAP.L"
  4. 0040 ╨╥╧├ MEMORYMAP ├╠╧╙┼─
  5. 0050   ╒╙┼ GRAPHICS
  6. 0060   BORDER(5)
  7. 0070   BACKGROUND(5)
  8. 0080   PENCOLOR(7)
  9. 0090   HIDETURTLE
  10. 0100   WINDOW(.5,7,-7*1024,67*1024)
  11. 0110   PLOTTEXT(3.5,$E900,"├╧═┴╠-80 MEMORY MAP")
  12. 0120   SETLABEL(0)
  13. 0130   SETLABEL(32)
  14. 0140   SETLABEL(40)
  15. 0150   SETLABEL(48)
  16. 0160   SETLABEL(52)
  17. 0170   SETLABEL(56)
  18. 0180   SETLABEL(64)
  19. 0190   BLOCK(1,$00,$8000,"╥┴═")
  20. 0200   BLOCK(1,$8000,$4000,"╥┴═")
  21. 0210   BLOCK(1,$C000,$4000,"╥┴═")
  22. 0220   BLOCK(2,$A000,$2000,"┬┴╙╔├")
  23. 0230   BLOCK(2,$D000,$1000,"├╚┴╥")
  24. 0240   BLOCK(2,$E000,$2000,"╦┼╥╬┴╠")
  25. 0250   BLOCK(3,$D000,$1000,"╔/╧")
  26. 0260   BLOCK(3,$8000,$4000,"├╧═┴╠")
  27. 0270   BLOCK(4,$8000,$4000,"├╧═┴╠")
  28. 0280   BLOCK(5,$8000,$4000,"├╧═┴╠")
  29. 0290   BLOCK(6,$8000,$4000,"├╧═┴╠")
  30. 0300   MOVETO(2.1,$00)
  31. 0310   DRAW(.1,$0800)
  32. 0320   DRAW(0,$3400)
  33. 0330   DRAW(.05,$0400)
  34. 0340   DRAW(-.05,$0400)
  35. 0350   DRAW(0,$3400)
  36. 0360   DRAW(-.1,$0800)
  37. 0370   PLOTTEXT(2.4,$4000,"╒╙┼╥")
  38. 0380   PLOTTEXT(2.4,$3400,"┴╥┼┴")
  39. 0390   MOVETO(3,$7B00)
  40. 0400   DRAW(.1,-$0600)
  41. 0410   DRAW(1.85,0)
  42. 0420   DRAW(.05,-$0400)
  43. 0430   DRAW(.05,$0400)
  44. 0440   DRAW(1.85,0)
  45. 0450   DRAW(.1,$0600)
  46. 0460   PLOTTEXT(3.8,$6000,"├╧═┴╠ ╥╧═ ┬┴╬╦╙")
  47. 0470   MOVETO(3.7,$4000)
  48. 0480   WINDOW(0,319,0,199)
  49. 0490   PENCOLOR(7)
  50. 0500   X0:=XCOR; Y0:=YCOR
  51. 0510   TYPE("╘HIS GRAPH SHOWS")
  52. 0520   TYPE("THE TOTAL ADDRESS")
  53. 0530   TYPE("SPACE OF THE ├64")
  54. 0540   TYPE("WHEN THE ├╧═┴╠")
  55. 0550   TYPE("CARTRIDGE IS PLUGGED")
  56. 0560   TYPE("IN. ╘HE MEMORY IS")
  57. 0570   TYPE("152 ╦BYTES, BANK-")
  58. 0580   TYPE("SWITCHED.")
  59. 0590   ╨╥╧├ BLOCK(MAP,ADDR,RANGE,TEXT$) 
  60. 0600     MOVETO(MAP,ADDR)
  61. 0610     DRAW(1,0)
  62. 0620     DRAW(0,RANGE)
  63. 0630     DRAW(-1,0)
  64. 0640     DRAW(0,-RANGE)
  65. 0650     MOVE((1-.15*╠┼╬(TEXT$))/2,0)
  66. 0660     MOVE(0,RANGE/2-1500)
  67. 0670     TEXTSTYLE(1,1,0,1)
  68. 0680     PLOTTEXT(XCOR,YCOR,TEXT$)
  69. 0690   ┼╬─╨╥╧├ BLOCK
  70. 0700   ╨╥╧├ SETLABEL(ADDR) 
  71. 0710     TEXTSTYLE(1,1,0,1)
  72. 0720     MOVETO(.5,ADDR*$0400-$0600)
  73. 0730     PLOTTEXT(XCOR,YCOR,ADJUST$(╙╘╥$(ADDR)+"K"))
  74. 0740     ╞╒╬├ ADJUST$(LAB$) 
  75. 0750       ╥┼╘╒╥╬ ╙╨├$(3-╠┼╬(LAB$))+LAB$
  76. 0760     ┼╬─╞╒╬├ ADJUST$
  77. 0770   ┼╬─╨╥╧├ SETLABEL
  78. 0780   ╨╥╧├ TYPE(TEXT$) 
  79. 0790     PLOTTEXT(XCOR,YCOR,TEXT$)
  80. 0800     MOVETO(XCOR,YCOR-8)
  81. 0810   ┼╬─╨╥╧├ TYPE
  82. 0820 ┼╬─╨╥╧├ MEMORYMAP
  83.